Computer Shopper 183/dpcs0503.iso/Extras/Content/Images/Artbeats/WebStockDemo/XTRAS/WebStock.dxr/00174_Button Example support scripts.ls

Text File | 1998-11-11 | 7.9 KB | 309 lines

on nulsound
  puppetSound(0)
  updateStage()
end

on soundin esound
  if stringp(esound) then
    puppetSound(esound)
  end if
  updateStage()
end

on waitmousupnsnd
  repeat while the stillDown or soundBusy(1)
  end repeat
end

on waitsnd
  repeat while soundBusy(1)
  end repeat
end

on waitix tix
  repeat while the timer < tix
  end repeat
  startTimer()
end

on switchmem memnum
  set the memberNum of sprite clickOn() to memnum
  updateStage()
end

on switchmemloc memnum, eloch, elocv
  set the memberNum of sprite clickOn() to memnum
  set the locH of sprite clickOn() to eloch
  set the locV of sprite clickOn() to elocv
  updateStage()
end

on parsepolar sectz, esprt
  set delv to mouseV() - the locV of sprite esprt
  set delh to mouseH() - the locH of sprite esprt
  if delh = 0 then
    set delh to 0.001
  end if
  if delh < 0 then
    set sectoff to sectz * 3 / 4
  else
    set sectoff to sectz / 4
  end if
  set rdstpz to 2 * PI / sectz
  set erad to atan(float(delv) / delh)
  set esect to integer((erad / rdstpz) + 1) + sectoff
  return max(min(esect, sectz), 1)
end

on parseqdrnt sectz, delh, delv
  set rdstpz to PI / 2.0 / float(sectz)
  set erad to (PI / 4) - atan(float(delh) / delv)
  set esect to integer((erad / rdstpz) + 1)
  return max(min(esect, sectz), 1)
end

on pointer memz, loopSound
  soundin(loopSound)
  set emem to the memberNum of sprite clickOn()
  set elib to the castLibNum of sprite clickOn()
  set ememnam to the name of member emem of castLib elib
  repeat while stillDown()
    set delv to the mouseV - the locV of sprite clickOn()
    if delv > -0.001 then
      next repeat
    end if
    set delh to the mouseH - the locH of sprite clickOn()
    set ememnam to word 1 of ememnam && parseqdrnt(memz, delh, delv)
    switchmem(the number of member ememnam)
  end repeat
  nulsound()
end

on dial memz, loopSound
  soundin(loopSound)
  set emem to the memberNum of sprite clickOn()
  set elib to the castLibNum of sprite clickOn()
  set ememnam to the name of member emem of castLib elib
  repeat while the stillDown
    set ememnam to word 1 of ememnam && parsepolar(memz, clickOn())
    switchmem(the number of member ememnam)
  end repeat
  nulsound()
end

on jogger memz, loopSound
  soundin(loopSound)
  set emem to the memberNum of sprite clickOn()
  set elib to the castLibNum of sprite clickOn()
  set ememnam to the name of member emem of castLib elib
  repeat while the stillDown
    set ememnam to word 1 of ememnam && parsepolar(memz, clickOn())
    switchmem(the number of member ememnam)
  end repeat
  switchmem(emem)
  nulsound()
end

on loop memz, lag, loopSound
  soundin(loopSound)
  set emem to the memberNum of sprite clickOn()
  repeat while stillDown()
    repeat with tween = 1 to memz - 1
      switchmem(emem + tween)
      waitix(lag)
    end repeat
    switchmem(emem)
  end repeat
  nulsound()
end

on follow memz, lag, loopSound
  soundin(loopSound)
  set emem to the memberNum of sprite clickOn()
  set elib to the castLibNum of sprite clickOn()
  set ememnam to the name of member emem of castLib elib
  set ememnum to word 2 of ememnam
  set ememnam to word 1 of ememnam
  repeat while stillDown()
    set ememnum to ememnum + 1
    if ememnum > memz then
      set ememnum to 1
    end if
    switchmemloc(the number of member (ememnam && integer(ememnum)), mouseH(), mouseV())
    waitix(lag)
  end repeat
  nulsound()
end

on toggle memz, loopSound
  set soundDisplay to EMPTY
  if stringp(loopSound) then
    set soundDisplay to "loopSound = " & loopSound
  end if
  if soundDisplay <> EMPTY then
    put soundDisplay into line 2 of field "caslibname"
  end if
  soundin(loopSound)
  set emem to the memberNum of sprite clickOn()
  set elib to the castLibNum of sprite clickOn()
  set ememnam to the name of member emem of castLib elib
  set ememnam to word 1 of ememnam
  repeat while stillDown()
    set vpos to (the locV of sprite clickOn() - mouseV()) / 5
    set vpos to min(max(vpos, -memz), memz)
    switchmem(the number of member (ememnam && vpos))
  end repeat
  switchmem(the number of member (ememnam && vpos))
  nulsound()
end

on thumb memz, lag, downSound
  set soundDisplay to EMPTY
  if stringp(downSound) then
    set soundDisplay to "downSound = " & downSound
  end if
  if soundDisplay <> EMPTY then
    put soundDisplay into line 2 of field "caslibname"
  end if
  set emem to the memberNum of sprite clickOn()
  set elib to the castLibNum of sprite clickOn()
  set ememnam to the name of member emem of castLib elib
  set ememnum to word 2 of ememnam
  set ememnam to word 1 of ememnam
  repeat while stillDown()
    if the mouseV > the locV of sprite the clickOn then
      set ememnum to value(ememnum) + 1
      if ememnum > memz then
        set ememnum to 1
      end if
    else
      set ememnum to value(ememnum) - 1
      if ememnum < 1 then
        set ememnum to memz
      end if
    end if
    switchmem(the number of member (ememnam && ememnum))
    waitix(lag)
  end repeat
  nulsound()
end

on switch memz, lag, downSound
  set soundDisplay to EMPTY
  if stringp(downSound) then
    set soundDisplay to "downSound = " & downSound
  end if
  if soundDisplay <> EMPTY then
    put soundDisplay into line 2 of field "caslibname"
  end if
  soundin(downSound)
  set emem to the memberNum of sprite clickOn()
  repeat with tween = 1 to abs(memz) - 1
    waitix(lag)
    if memz > 0 then
      switchmem(emem + tween)
      next repeat
    end if
    switchmem(emem - tween)
  end repeat
  waitsnd()
  nulsound()
end

on morph memz, lag, downSound, upSound
  set soundDisplay to EMPTY
  if stringp(downSound) then
    set soundDisplay to "downSound = " & downSound
  end if
  if stringp(upSound) then
    put "   upSound = " & upSound after soundDisplay
  end if
  if soundDisplay <> EMPTY then
    put soundDisplay into line 2 of field "caslibname"
  end if
  if stringp(downSound) then
    soundin(downSound)
  end if
  set emem to the memberNum of sprite clickOn()
  repeat with tween = 1 to memz - 1
    waitix(lag)
    switchmem(emem + tween)
  end repeat
  waitmousupnsnd()
  soundin(upSound)
  set emem to the memberNum of sprite clickOn()
  repeat with tween = 1 to memz - 1
    waitix(lag)
    switchmem(emem - tween)
  end repeat
  waitsnd()
  nulsound()
end

on click downSound, upSound
  set soundDisplay to EMPTY
  if stringp(downSound) then
    set soundDisplay to "downSound = " & downSound
  end if
  if stringp(upSound) then
    put "   upSound = " & upSound after soundDisplay
  end if
  if soundDisplay <> EMPTY then
    put soundDisplay into line 2 of field "caslibname"
  end if
  set emem to the memberNum of sprite clickOn()
  soundin(downSound)
  switchmem(emem + 1)
  waitmousupnsnd()
  soundin(upSound)
  switchmem(emem)
  waitsnd()
  nulsound()
end

on flash eInk, downSound, upSound
  set soundDisplay to EMPTY
  if stringp(downSound) then
    set soundDisplay to "downSound = " & downSound
  end if
  if stringp(upSound) then
    put "   upSound = " & upSound after soundDisplay
  end if
  if soundDisplay <> EMPTY then
    put soundDisplay into line 2 of field "caslibname"
  end if
  set savink to the ink of sprite clickOn()
  soundin(downSound)
  set the ink of sprite clickOn() to eInk
  updateStage()
  waitmousupnsnd()
  soundin(upSound)
  set the ink of sprite clickOn() to savink
  updateStage()
  waitsnd()
  nulsound()
end

on motion new, offsetH, offsetV, downSound, upSound
  set soundDisplay to EMPTY
  if stringp(downSound) then
    set soundDisplay to "downSound = " & downSound
  end if
  if stringp(upSound) then
    put "   upSound = " & upSound after soundDisplay
  end if
  if soundDisplay <> EMPTY then
    put soundDisplay into line 2 of field "caslibname"
  end if
  set emem to the memberNum of sprite clickOn()
  set horz to the locH of sprite clickOn()
  set vert to the locV of sprite clickOn()
  soundin(downSound)
  switchmemloc(emem + new, horz + offsetH, vert + offsetV)
  waitmousupnsnd()
  soundin(upSound)
  switchmemloc(emem, horz, vert)
  waitsnd()
  nulsound()
end